home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / contrl30.zip / TESTME.BAS < prev   
BASIC Source File  |  1993-06-01  |  596b  |  46 lines
  1. START:  'This is a test me file for Quickbasic Conter Center 3.0
  2. FOR X=1 to 10   ' Note: This program is just for a formatting demo.
  3. PRINT
  4. PRINT
  5. FOR F=1 TO 10
  6. PRINT
  7. PRINT F
  8. PRINT
  9. NEXT F
  10. NEXT X
  11. WHILE X-1=S
  12. PRINT X
  13. WEND
  14. HERE:
  15. SUB PAUSE
  16. any$=INPUT$(1)
  17. PRINT
  18. PRINT
  19. END SUB
  20. THERE:
  21. DO UNTIL X=9
  22. PRINT x-1
  23. PRINT x+1
  24. x=x+1
  25. LOOP
  26. INPUT G$
  27. SELECT CASE G$
  28. CASE "Hello"
  29. FOR x=1 to 10
  30. PRINT x
  31. PRINT "Hello to you to..."
  32. NEXT X
  33. CASE "BYE"
  34. WHILE X<9
  35. X=X+1
  36. FOR d=1 to 10
  37. PRINT D
  38. NEXT d
  39. WEND
  40. CASE "EXIT"
  41. PRINT "PLEASE REGISTER THIS SHAREWARE..."
  42. END SELECT
  43. EXIT:
  44. END
  45.  
  46.